From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 27 May 1993 23:50:38 +0000 (+0000)
Subject: (frame-initialize): Handle reverseVideo resource.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95877
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=c1bc92cebde7c6b446c27afe76d167dee1e27b30;p=emacs.git

(frame-initialize): Handle reverseVideo resource.
---

diff --git a/lisp/frame.el b/lisp/frame.el
index 98f08cba16b..8faa376569f 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -100,7 +100,9 @@ These supercede the values given in `default-frame-alist'.")
 			  (new-frame initial-frame-alist)))
 	      ;; Handle `reverse' as a parameter.
 	      (if (cdr (or (assq 'reverse initial-frame-alist)
-			   (assq 'reverse default-frame-alist)))
+			   (assq 'reverse default-frame-alist)
+			   (cons nil
+				 (x-get-resource "reverseVideo" "Reversevideo"))))
 		  (let ((params (frame-parameters frame-initial-frame)))
 		    (modify-frame-parameters
 		     frame-initial-frame